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Subroutine: BWAIT 


a Function 
= Event code 16. This routine simulates an LRU entering a Wait-for-parts 
sa 


AY 
by 


status. . 


omy Calling Parameters: 
ry N = Stock Keeping Unit Number of the LRU 


z 
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= The total number of SRU components required for this LRU 


ra NJOB = JobNumber for this particular LRU reparable generation 
ae 
Description 


This routine simulates an LRU entering a wait-for-parts status. To do this, it 
et loads the values of N, NNEED, NJOB, and ITIME into the vector ATRIB, where 
ITIME is the current clock time. The GASP routine FILEM is then called to record 
i these data values in GASP file 2. 
Subroutine RCVPRT (event code 17) eventually removes this LRU from file 2 
my after all NNEED SRUs needed for the repair of the LRU have been received. 
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Subroutines CONDEM 


Function: 


Event code 15. This routine records the condemnation cf IOTY units of SKU 
N. NIOB is the associated reparable generation number. 


a" 
ce Orne se Bs 


Calling Parameters: 
N 


rhs 


Ale. FU 
it 


Stock Keeping Unit number 


IQTY = The number of units to be condemned 
NJOB 


The reparable generation number associated with this condem 


nation 


Description: 
This routine calls subroutine CUM to update condemnation statistics. It then 


updates the number of assets which are work-in-process (INWIP), and returns to 
the calling routine. 
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6 
" Subroutine: CUM (ISTAT, IQTY, KFSN) 
, Function: | 
Pe : 3 
a This routine updates the items, units, and dollar statistics associated with the 
2 statistics array ISTAT. 
Calling Parameters: 
a ISTAT = Thestatistics array to be updated 
@ : 
i IQTY = = The number of units associated with this transaction 
re KFSN = The statistics collection index to be updated. See Volume! for a 
i definition of allowable values for KFSN. 
z Subroutines CUMB (ISTAT, IQTY, KFSN) 
A Function: 
g 
> This routine updates the unit and dollar counts associated with the statistics 
A 
array in ISTAT. This routine has no effect upon the counts of FSN actions. 
d Calling Parameters: 
. ISTAT = Statistic array to be updated 
4 IQTY = The number of units associated with this transaction 
‘ KFSN = The statistics collection index | 
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Subroutines ENTER 


Function: 


This routine enters transactions on the Future Events List, and updates the 


associated pointer variables, 


Description: 
Subroutine ENTER places events on the Future Events List, and updates the 


associated pointer variables, These transactions are subsequently removed by 
subroutine REMOVE. See Volume I, Section II for a detailed description of the 


operations of these routines. 
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a Subroutine: ENTERB 

i Function: 

a This routine records backorders in the backorder file, and updates associated 

a pointer variables, 

& Calling Parameters 

N = The Stock Keeping Unit number associated with current back- 

order. 

te IQTY =  Thenumber of units to be backordered. 

rm LPRI = A packed variable which defines both the priority of the requisi- 

tion, and the SKU identification of the stocking location which 
originated the requisition. 

a JTIME =~ The time (in TMUs) that the requisition is entered into the 

. backorder file. 

, Description: 

& This routine records backorders in the backorder file. Backorders are stored in 
linked list form, with pointers from each recorded backorder to the next lower 
priority outstanding backorder for the associated item. In this linked list, the 

be! highest priority, oldest backorder is stored first; that is, backorders are recorded 

. on a first-in-first-out basis within priority, See Volume I, Section Il for variable 

ms definitions, 
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The variable NBOTP (N) defines the location of the oldest, highest priority 
backorder for SKU N. When new stock is received, this backorder will be the first 
requisition to be filled. 

As noted above, the calling parameter LPRI defines both the priority of the 
backordered requisition, and the Stock Keeping Unit number of the inventory 
location which originated the requisition. The last two digits of LPRI define the 
priority of the requisition. That is, the requisition priority IPRI is given by MOD 
(LPRI, 100). If LPRI is less than 100, we assume the requisition was submitted by a 
flight-line maintenance group located at Stock Keeping Unit N. If LPRI is greater 
than 100, but less than 1000, we assume the backorder orginated from a 
replenishment request from some stocking location other than location N. In this 
case, the Stock Keeping Unit number of the requisitioning organization is given by 
(LPRI - IPRI)/100. If the parameter LPRI is greater thar 1000, the backorder 
represents a requisition for SRU components needed to compiete the repair of an 
LRU. In this case, the job number, NJOB, associated with the LRU repair is given 
by NJOB = (LPRI - IPRD/100. 

When Subroutine ENTERB is called, the routine first decodes LPRI to 
determine the stock keeping unit and priority associated with this requisition. It 
next updates the backorder counters NBOTR (N), NBOTU (N), NBOIR (N), and 
NBOIU (N) which define the total current requisition and unit backorders for SKU 
N. Finally, the routine finds the appropriate location in the linked list to record 


this new backorder, and updates the associated pointer variables. 
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Subroutine: EVNTS 


Hf Functions 
: This routine takes events off of the Future Events List and the Exogenous 


Event File based on the lowest event time, but then calls the appropriate event 
subroutine. 


> Calling Parameters: 
RNLAST= This parameter specifies the random number seed to be used for 
initialization of the pseudo-random number generator. 


Description: 
Subroutine EVNTS controls the timing of individual events throughout a 
simulation run. The routine begins by initializing the pseudo-random number 


Pe sens ome: 


generator, the Future Events List and associated timing variables, and by initializ- 
ing the data arrays for the LRU/SRU family group to be simulated. This is 
accomplished through calls to subroutines RANDU, INITAL, and INITM2, respec- 
tively. In program lines 480 through 810, the routine then determines whether the 
next most eminent event, (i.e., the event with the lowest scheduled clock time) is 
on the Exogenous Event File or on the Future Events List. It then removes this 
event from the appropriate file, and sets the parameter values for the current 
event. In program line 840, the routine then branches to the appropriate section of 
program logic associated with the event type of the current event. If an 
End-of-Run event is encountered (event type 10), program control returns to the 
MAIN program. Otherwise, the program logic returns to program line $80. The < 


process of determining the next most eminent event and calling appropirate event 


po on ae 


subroutine logic is then repeated until a type 10 event is eventually encoutered. 
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When a type 10 event is finally encountered, the program logic first checks 
(program line 1470) if this event was read from the Exogenous Event File. If so, 
the program immediately returns to the MAIN program. Otherwise, Subroutine 
EVNTS continues to read events from the Exogeneous Event File until a type 10 
event is eventually encountered. When this happens, program control returns to 
the MAIN program. This last, "tidy up" process is required to ensure that when the 
simulation of the next LRU/SRU group begins, the Exogenous Event File is 
positioned at the beginning of the events list that applies to the new group. 


a2 | 
Fe sess Bass Eas a Mae Mei as, ek ee Steet ten ard 18 
01 10020979 10,936 8 

T TENUNSIRSNE USO EVESS, OL ECU ANOS) 
2 *EBYNTS.S ao sno Said avans Gon Gbie: ated 

SUBROUTENE £ 
4 ¢ tits AOUTINE TARES RVaBTO OFF THE FUTURE saree wast ae 
5 Cc a 8 ees 
6 ¢ PIKE; TI THEM CALLS ONE APPROPRIATE SERS SUBROUTANS, 

¢ : 
8 COMMON/ETINE/ETINE = ee 
9  GOMMON7HTEME/WTIRE 00000 
! - counon/ epee / songs 
ComHO® ee 
12 COMNON/AZUEA/ATTER 
j COMMON? 
16 COMMON /ENVDUS/INYDUE( 1) 
| COMNOW /Iews 
16 cOWNOM /5BO#R/EBOER( 1) eee 
1 COMMON /WGOLR INO 
18 COMMON sWBOTUsNBOTY( 1) 
7 COMMON /Waor 
2« ¢ Ae a Ree ee 
27 COMMOW7UREPL/ URE 
28 oO saawasepequctaeenssaewsseens————— ae 84 BFS NE a ar Ronee sg 
26 ¢ 
TIAL DOM Wt 

26 ¢ an eh ee ete 
2 se ? 
28 CALL Rguaucy eT Ne SI _ 
2 CONTINGE ——- 
3 ¢ IpIeIaLIZB THE FuTURS GVEWTS LISTLINITALY» 
3 ¢ 
32 CALL I#IVAL See 
3 e 
36 ¢c TeI"TALIZE HATA ARRAYS FOR THIS ITRN ; _ ne ded 
3 ¢ er ee ee Tt Wee 
36 CALL IN¢TE2 
368 ¢ ROAD rIRST SUTRY ON Exec. BVENT FILE PtSi S can Severe eee 
350—~C~C~«SS ee : ~ 
ao READCTJIQINRITYPETPI.9PO. IPR 
rm € 
42 IP (ID8H6 o¥8, 1) 60 To 18 
4 
ae 16 COMTINGE See ate ee ene Be, Set ee ete eel 
Pe Ca rrececccneguanccceeencacenceccconeqecooces 
; SIR POTS EPS PS. EER a 2 OR AORN PTR ET PE RET RE 2 
48 190 CONTENOR 
& 
50 € Ip pbxt BYENT IS EXOG.; Bo FO 180 
; ) BEX BVERS 65 SKUVes BY dd ss of 
52 IP(STINE BT. WETNBY GO FO 190 


tt ee ae le 


EVNTS 


19 


56 C BadoGeneUS EVENT, REhOOR TT PRON THE PRL, 
: * $8 ¢ | 
2 60 C _SOTMMN ANAD GaRT BXSOS EVEVE TRON TRUE Te 
ZerPses #193 
Thang 4 


Ld 
RBAD(75Bado1SS)ITINEAITYPE. VPN. IPL, IPS 


155 CONTINGE 
JTINE 
160 CoeTzRey 
151 PORMATS® ETRE EIYEE", 1203-84226, 9071947355 °225% 


‘ 
e 


Ch) ) 


aeSatapoza adore NITE Etre} on are 
wAtvE/6sts7zoxag, 8364, 853, TPU IPS oMTIAR, ITING 


etle e te a ee ee get 


GO TO b 21. 22, 23, 2b. 29. 20, 27, 28s 29+ 30. 3%, 320 938 94, 


re eno a ne late te one 


aaeLice a8egret oF SRANBAGTION : 
S2tr pe ae on 


AL PT: 
CALL BE¢IOW(I93,07 
22 couTrvcs 
? 0 
REPLOCE gBesre? 
v 
60 TO 90 : 
CALL CANGLB(IP3,226,2P5T 


Par ed 


fd oe” 


pec ey tt . ee or ene ate 
“0% 020079 6.536 = § 
} Zz y _}.- mY, Z 4 
16 ¢ 
7 2u CELE ade(rd3, ree. ctrkey === 
18 60 Ta 90 __ es 
) : COnTERGE 
1 Cc STktq8 RESzEW : 
1 ALL WO, : 
12 Iv (zp, £320) 8 a0 70 90 Soot eee a tee 
3 NTIAS ete ; 
16 CALL BNSE rita 5 e000, 285} 
15 60 Fa 9§¢ 
16 26 CONTINGS 
- € LBYats CONPUTATION 
1 A 
19 CALL TTT 030) 
@ IP(LPS,8B,0) 80 FO 90 
21 MTIARELEIaverP 
2 GALL BRPBa(MTZME,6,00052P5) 
23 @0 Ta 90 
4 7 CONTIRE 
25 Cc BUY 6UEDELENE. 
26 CALL GOIDE - se 
27 60 To 3 ee  — 
8 28 CONTZNDE ; 
29 c BUDGET RESTEW 
30 CALL BoDesT _. 
e 
& ¢ Ao exeorndus r 
¢€ Ia 38 OUNTERED.. MARK ft THE BRD OF THE CURRENT 
¢ 
Cc 
ave.sQ. RITE KI }3 . 
$° = 6340 PORMATESWEST Bx06, Bvanr=*, B28). 
184 GO 70 39 
1 ¢€ 
] 
156 C —s—C—“( SPRCHAQ STATISTICS a 
ss0UC~*# CAL ati eae Gee eae pe en ote Seg eee Se 
186 GO TO 90 ae ais see a ga tee oe ey ee ee 


Oey Lar eg he ice ge Bg Pe Mg Og Br he pkg kOe Ook eu eB Bite, Meme gh om see nate Mee eyo gee att i Tigh eee tie em | Te ELS Pgs A ESAT eT tg ee 


A 
ae SERRANO 0. hate Ae 
te ee ee ee 
s b: a ee ot pate Ee oe ee at, | a 
is ® 01 i10e20< S36) OS 
156 e DERAKD PARAMETER UPOKTS Sense cas Se: 
: CAL SABARI TPS, e 
| 160 6Q TQ 90 sweeteners eno oe 
167 33 Cowtevts 
162 ¢€ BVEeT 19. OPOATE TRACK BARANETBRS 
x 1S” SSP CSTENG, 80; LeRACH) roNUSeT 
= 168 ZP(LTZNA, BQ. TSTRACIIOBUSSO 
< ee 60 TS 90 
16 c 
Mm 167 ¢€ 
* 168 ; 
16% (4 obs 10, + sERE : 
fs FO ¢ Pe seh 2 
. oo ~~ a Cowexrnle | 
<. S aeg CALL RESGRN (THI, LP4,IP5) hea eee og Bee 
_ Wy GO 70 90 
. = 576 
is 1 [-] DDB 19y CORT 
a6 (4 wy taes _ 
oe | con B 
= 98 CALL COMDBN(TH3,TPU,IPS) ta perce ee, be f 
a I) CALL NEVIOWIIBS, OF 


80 Go 70 90 


82. Ce 16, BRGrN Waetsms ron DaRrs 
rif = wv O08 19, BEGIN NEI 
.. 66 36 CoMtTzéUs eee es eat 
3.) CALE WWRTE( LVS, LUC LIS) = 
86 Go f0 90 
: 88 c ae eee os pete tone 
89 (4 Cebs 17, WECEXVE PARTS 
90 ¢€ eee ae ote eet 
Ta tain... ... ° °° = 
—~ 92 CALL ACOPRT(Z93,3PU,IPS) 
94 ¢e Oe cahan j 
595 ¢ GOBE 10, WEPAIE CONVLETYou 
96 ¢ peek 
\ ) | ST.) | >. |) a 
~ 98 CALL CREPR(TPS, IPE, TPS) Bias See oat bce . 
6 ais 
en Seen gate . 
ie “CE 9. WeTS EYEWT 
0 
** (+) 
~ 38 CALL WRESCIDILIP’.2IPS! 
JS ————COSENE VLOGS. UT 


26 Go TO 90 


22 
t 01 10920079 10.830 8 _ = Par ee 
29 G : 
1g CBVENT Quy, SENEPEKL SROVTSTONING. 


11 4. CONTINUE 


1 Cc INITIAL PROVISIONING EVERT. ORDER FOR INSEDIATE Oxaresay 
1g EEF SLCEENT BTOCK TG BNING EXCK HOCATION UF Yo res" 


16 C Sr0eK LEVEL, 

1 e€ 

16 CCAR LEVER(O) 

17 CALL REWIBW(OCT) 

OO = 2 CONE ee ee ere ee 
19 c 


26 & Wao ROM) nBOTRA#) 

27 2993 FORMATETA9. 226,617) 

28 ¢ ere dere etre te ADR crac TR 
29 180 CONTINUE 


3 Go t0 140 
¢ Boe atet 9 Oe ee Snes eee eee et ee 
3 ¢€ 
38 99 ConTINUs 
135 RETURD 
we a eee 


23 


Subroutine: FILLBO 


Function: 


This routine initiates shipping actions to fill outstanding backorders. 


Calling Parameters: 
N = _ The Stock Keeping Unit number for which outstanding backorders are 
to be filled. 


Description: 

Subroutine FILLBO (N) is called to initiate shipping actions to fill outstanding 
backorders for SKU N. The routine assumes that backordered requisitions are 
filled using a first-in, first-out, by priority, issue rule. If on hand assets are 
insufficient to completely fill a given requisition, partial shipments are initiated. 
Reduced shipments to partially fill several outstanding backorders are not per- 
mitted in this routine. 

When FILLBO is called, it checks if the highest-priority outstanding requisi- 
tion for SKU N may be filled completely from on-hand stock. [If $4, and if tnis 
shipment will not take on hand stock below the support level (ISUL{N)), the 
requisition is removed from the backorder list, and a shipment for the requisition 
quantity is initiated. If the backorder is low priority (that is, if the priority code is 
2), shipments will be made until on hand stocks just equal the support levels ISUL 
(N). For high priority requisitions, shipments are made until on hand stock is 
reduced to zero or until all high priority requisitions are filled, whichever occurs 
first. 

Subroutine FILLST is called by FILLBO to update backorder statistics and to 
initiate any subsequent endogenous events to be created as a result of the fill 


action. 
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Subroutine: 


Function: 


FILLST 


This routine updates backorder statistics to reflect shipment of IQTY units of 


SKU N to Satisfy a backorder. If the backorder represents a requisition from some 


other stocking location, an appropriate receipt event is scheduled. 


Calling Parameters: 


IPRI 


ITMBO 


NR 


The Stock Keeping Unit which will provide the assets to be 


shipped. 


The quantity of assets to be shipped 


The priority of the backorder being filled. 


The time that the requisition was placed into a backorder status. 


The number of requisitions to be removed from the backorder 


file by this shipping action. If NR = 1, the number of back- 


ordered requisitions is reduced by 1. Otherwise, NR = 0, 


reflecting a shipment to partially fill a current backorder. 
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= NSKU = The SKU that originated the requisition. 


a ee ee ee ee Oo ea 


This subroutine first computes the length of time that the backorder has been 


outstanding, and cails subroutine CUM to update the backorder-day statistics 
arrays (IBODAT and [BODAI). 


FILLST then schedules appropriate Receive Parts events. If NSKU is greater 
than 1000, the backorder represents a requisition to provide parts for the repair of 
reparable generation number NSKU. In this case, subroutine FILLST schedules an 
LRU Receive Parts Event (Event Code 17) to occur 10 Time Measurement Units 


from the current time. If NSKU is less than 1000, but NSKU is not equal to N, 


current backorder represents a requisition to supply some other stocking location 
(e.g., a base or an overhaul facility) In this case, FILLST schedules a Receive Parts 
Event (Event Code 2). 


Finally, subroutine FILLST updates records of on hand inventory for SKU N, 


and calls subroutine CUM to update the shipping statistics arrays ISHIPP and 
ISHIPI. 
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Subroutine: INFEL 


ESicesi-ariot Ae. 


Function: 


This routine initializes the Future Events List to an empty status. 


Description: 


4 Subroutine INFEL initializes the Future Events List. Subsequently, Subrou- 


tines ENTER and REMOVE update this list. See Volume I, Section II, for a detailed 


discussion of these activities. 
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Subroutine: INGASP 


Function: 


This routine initializes the GASP file system. 


Calling Parameters: 


KTRY = The maximum number of entries into the GASP file system 

KFILE = The number of files to be utilized 

KSET = _ The dimension of NSET; that is, the maximum number of data 
elements to be stored in the GASP file system 

KATR =  Thenumber of attributes of a file entry 


Description: 


| Subroutine INGASP first sets the GASP COMMON variables NNTRY, NNFIL, 
NNSET, and NNATR to the respective calling parameters. The GASP time variable 
TNOW is then set to zero, and GASP file variables KKRNK (i) and IINN(L) are set 
so that all files will be ordered based upon ascending values of attribute 3. Finally, 
subroutine SET is called to initialize the GASP file system pointers. 
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Subroutine: INITAL 
Function: 


This routine sets the value of RIME timing variables and initializes the Future 


a 
a Events List. 
- Description: 

First, INITAL calls subroutine INFEL to initialize the Future Events List. 
fp Next, major parameters on the Backorder File are set, and the Backorder File is 
t 

initialized. 

RIME time parameters are then set assuming that there are 100 time units in 

Q each simulated day. At present, subroutine INITAL assumes that there are seven 
days per week, four weeks per month, three months per quarter, and four quarters 

m in each year. 

me The routine then initializes the simulation clock and the statistics collection 
index; specifically, it sets: 

ITIME = 0 

ae 

: ITIMZ = ] 

eS INITAL then sets the other timing variables discussed in Section II, Volume I. 


Finally, INITAL places events for event codes 6, 10, 11, and 20 on the Future 
Events List. If a Trace Event is to be utilized (i.e., if ISTRAC is greater than 0), 


and appropriate trace event (Event Code 13) is also scheduled. 
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Subroutine: INITEM, INITM1, INITM2 


Function: 


This routine reads in data for a new LRU/SRU data set, and initializes 


associated inventory variabies to zero. 


Description 


This routine has two entry points, INITM1 and INITM2. Entry point INITM! is 
called to initiate the processing of a given LRU/SRU data set, Entry point INITM2 
is called to initialize inventory variables associated with ali SKUs at the beginning 


of each simulation replication. 


When INITM1 is first called, it sets the record size for random file 11 to Ii 
words. This file serves as a work file for holding inventory levels computed by the 
Levels Computation Module as a preprocesing step. The routine then reads in data 
records from file 07 defining the characteristics of the current LRU/SRU data set. 
It then sets lead time variables for each Stock Keeping Unit number based on this 
input data. Finally, INITM1 reads levels data from file 09, and writes this data to 
the random work file 11. (During the simulation of this LRU/SRU data set, 
subroutine LEVEL reads file 11 at the beginning of each quarter to determine 


authorized stock levels.) INITM1 then returns to the calling program. 


Entry point INITM2 is called to initialize inventory status variables at the 
| beginning of each simulation replication. When the routine is called, it sets the 
™ inventory status variables INVACT(N), INVDUE(N), and INWIP(N) to zero. The 
backorder status variables NBOTU, NBOIU, NBOIR, and NBOTR are also set to 
zero. Finally, the backorder pointer NBOPT(N) is set to zero and logic returns to 


the calling program. 
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Subroutine: ITRSLT 
Function: 


This routine records selected performance statistics for the current replica- 


tion, and prints and punches results. 


‘ Description: 


If the current group being simulated equals NFGRP, and if this is the first 
replication for the group, the statistics array JMEAS is set to zero. The routine 
then outputs 10 selected performance measures for the current LRU/SRU group. 
The 10 statistics recorded are depot buy dollars, depot backorder-days, base fills, 
base requisitions, and base backorder-days for LRU and SRUs, respectively. 


Summaries for both the 8th quarter of the simulation and for the 16th quarter of 


the simulation are then printed and punched. 
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Subroutine: KNSKU 
Function: 


This function computes the statistics aggregation index K associated with 


Stock Keeping Unit number N. 


Description: 


The variable NSTLOC denotes the total number of stocking locations for each 
Federal Stock Number being simulated. This value is then used to determine the 


appropriate aggregation index associated with SKU N. 
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Subroutine: LEVEL 


Function: 


This routine obtains levels data from random file 11, and then sets reorder, 


retention, termination, and support levels for each SKU being simulated. 


Calling Parameters: 


NN = Item Flag. If NN = 0, subroutine LEVEL computes levels for all 


items. Otherwise, the routine computes levels for item NN only. 


Description: 


Subroutine LEVEL is called to represent a stock level computation event. 
Stock level data is originally input to the RIME simulation model through entry 
point INITM1, and written to the random work file 11. When routine LEVEL is 
called, it obtains stock levels for the current quarter by reading the next (NSRU + 
1) sets of levels records from file 11. It then computes the stock keeping unit 
number associated with each stocking location, and sets the reorder level IROL(N) 
to the values obtained from File 11. Subroutine LEVEL then sets the retention and 
termination levels (ITL (N) and IRL (N)) to very large numbers. As a result, 
termination and disposal actions never occur. In addition, the support level ISUL 


(N) is set to zero for all items. 
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Subroutine: NRTS 


Event Code 19. This routine records a NRTS event for SKU N, and updates 


base and depot Work-in-Process records accordingly. 


Calling Parameters: 


The Stock Keeping Unit number of the inventory location which 


is originating the NRTS action. 


The number of units to be NRTS. 


The reparable generation number which is the source of the 


NRTS assets 


Subroutine NRTS first computes the Stock Keeping Unit number of the depot 
associated with stocking location N. It then increases the work-in-process 
inventory for the depot SKU, and decreases the work-in-process for stocking 
location N. Subroutine CUM is then called to update the INRTS statistics arrays 


for both the depot and base locations. Logic then returns to the calling program. 
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Subroutine: ORDER, ORDERV 
Function: 

This routine updates statistics to reflect an order for IBQ units of SKU N, and 
schedules associated receipt transactions. Entry point ORDERV is called to 


represent shipments of initial provisioning assets. 


Calling Parameters: 


N = The SKU originating the requisition 
IBQ = The quantity of assets requisitioned 
JTIME =~ The time that the stock associated with this order is scheduled 


to be received. JTIME is computed within subroutine ORDER and 


returned to the calling program. 


Description: 


This routine reflects an order for IBQ units of SKU N, and places appropriate 
stock receipt transactions on the Future Events List. The variable IPHASE 


indicates whether the current order is associated with an initial provisioning or a 


replenishment action. IPHASE = 1 denotes an initial provisioning order, while 
a 
IPHASE = 2 denotes a replenishment order. In an initial provisioning action, assets 


Si See ee eS ge eee eee eg ta a ee ge ae 


are procured by the depot and shipped directly and immediatedly to the requisition- 
ing location. For replenishment actions, however, the exact activities taken 


depends upon whether or not the stocking location under consideration is a depot. 


If the inventory location N submitting the order represents a base or an aircraft 


overhaul facility, subroutine ORDER schedules a replenishment requisition (Event 
Type 1) event to occur at the depot LTADM (N) days in the future. This action is 
taken since both the bases and the aircraft overhaul facility are resupplied from 
the depot. On the cther hand, if the originating stocking location N is a depot, an 
outside vendor is the source of resupply. Consequently, subroutine ORDER 
schedules a stock receipt event (Event Type 2) for IBQ units to occur a leadtime in 
the future. The total! leadtime consist of the sum of administrative leadtime 
(LTADMI(N)) and production leadtime (LPPROD(N)). Finally, subroutine CUM is 
called to update the performance statistics IORDER, ILGORD, and ISMORD. 
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Subroutine: OUTREP 


Function: 


This routine presents a short-form summary report of simulation results 


obtained from a given RIME simulation run. 


Description: 


This routine produces a short-form summary report of RIME simulation 


results. The quarterly simulation statistics are totalled in this routine for selected 


measures, and printed in a short-form (3 pages) report, presenting a compact 
summary of major performance statistics of interest in this study. See Volume I, 


for a detailed discussion of the output report produced by this routine. 
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| Subroutine: OUT2 
Function: 


This routine outputs summary statistics by quarter to summarize simulation 


results. Values printed represent the sum of all statistics collected for all 


LRU/SRU groups and all associated replications performed in the current RIME 


run. 


r . Description: 


This routine outputs summary statistics describing the detailed results of a 


RIME simulation run. See Volume I for a detailed description for the outputs of 


this routine. 
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Subroutines RCVPRT 
Function: 
Event Code 17. This routine records the receipt of IQTY units of SKU N to 
support the repair of LRU reparable generation number NJOB. If all parts 


requirements for the repair of the LRU are satisfied, the routine schedules a repair 


completion event (Event Type 18) for this LRU. 


Calling Parameters: 


N = The SKU of inventory item associated with this receipt 
IQTY = The number of assets being received 
NJOB = _ The job number associated with the LRU to be repaired 


Description: 


Subroutine RCVPRT first utilizes the GASP routine NFIND to locate the 
work-in-process record for the LRU reparable generation number NJOB. The total 
number of parts needed to complete the repair of the LRU (stored in the GASP 
vector QSET(NAT2) is then reduced by the number of assets IQTY that has just 


been received. If all parts needs have now been satisfied (i.e., if QSET(NATZ2) is 


8S | 
now zero), the work-in-process record is permanently removed from GASP file 2 
by calling GASP routine RMOVE. 

When all parts needs for completion of the LRU repair have been satisfied, | 
subroutine CUM is called to update the waiting time statistics array IWFP. In 
addition, RCVPRT then schedules a repair completion event (Event Type 18) for 
the LRU. 
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Subroutine: RECEIV 


Function: 


Event Type 2. This routine updates stock status records to reflect the receipt 


of a replenishment order from a supplier of the inventory system. 


Calling Parameters: 


N = The SKU of the inventory location receiving the replenishment 
order. 
IQTY = The nurnber of assets received. 


Description: 


The routine first calls subroutine CUM to update the statistics array IRECET. 


The on hand and due in inventory arrays for SKU N are then updated. Finally, 


subroutine FILLBO is called to fill outstanding backorders for SKU N, if any. 
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Subroutine: REMOVE 


Function: 


This routine removes the earliest event transaction from the Future Events 


List, and updates associated pointer records. 


Description: 


This routine determines the "current" event to be simulated within RIME. For 


a detailed description cf the event bookeeping process, see Volume I, Section II. 
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| | Subroutine: REPGEN 
Function: 


Event Type 14. This routine records the occurrence of reparable generations, 


and updates appropriate statistics. 


Calling Parameters: 


N = The SKU associated with the reparable generation. 
IQTY = The number of units associated with this reparable generation. 
NJOB = _ The job number assigned to this reparable generation. 


Description: 


The routine first calls subroutine CUM to update the reparable generation 
Statistics array IREPGN. Work-in-process for SKU N (INWIP(N)) is then increased 


by IQTY units, and logic returns to the calling program. 
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Subroutine: REQ 


Function: 


Event Type 1. This routine reflects the receipt of a customer requisition, and 


initiates associated shipping and/or backorder actions. _ 


Calling Parameterrs: 


N = The SKU associated with the current requisition event. 
IQTY = The number of assets associated with this requisition. 
LPRI = A packed variable defining the priority of the requisition and the 


original source of the requisition. 
LTIME = The time of receipt of the current requisition. 
Description: 
The packed variable LPRI defines both the priority of the current requisition 
and the original source of the requisition. The priority IPRI is contained in the last 


two digits of the variable LPRI. Hence, IPRI = MOD (LPRI, 100). If LPRI is less 


than 100, the requisition represents an independent exogenous demand originating 
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from SKU N. If 100 = LPRI = 100,000, the- requisition represents a replenishment 
order from another SKU. Finally, if LPRI = 100,000, the requisition is to provide 
parts for the repair of job number (LPRI - IPRI)/100. When called, subroutine REQ 
first computes the Stock Keeping Unit number (NSKU) of the inventory location 
which initiated the requisition. It then calls subroutine CUM to update the 
requisition statistics arrays IREQT and IREQI. The demand and requisition 
counters NDEMAC and NREQAC are then updated; however, these latter arrays 


are not used in the current implementation of RIME. 


. The routine then determines the extent to which the current requisition can be 
| filled. For low priority requisitions (i.e., requisitions with a priority code = 2) units 
are shipped until on hand stock reaches the support level (ISUL (N)) for SKU N. For 
high priority requisitions shipments are made until on hand stock is reduced to 


zero. If there is insufficient stock to completely satisfy a requisition, subroutine 


ENTERB is called to record a backorder for the remaining units. | 


At the conclusion of the routine, subroutine ENTER is called to schedule | 
appropriate parts receipt events. If the requisition is to replenish another stocking 

location (i.e., if NSKU & N and NSKU - 1000), subroutine ENTER is called to | 
schedule receipt of these parts (Event Type 2). On the other hand, if NSKU - 1000, 

the requisition is to provide support for the repair of LRU NSKU. In this case, | 
subroutine ENTER is called to schedule an LRU receive parts event (Event Type 

17). 


At the conclusion of the routine, subroutine CUM is called to update the 
shipping and fill rate statistics ISHIPT, ISHIPT, IFILLP, and IFILLI. 


Eee rear Sie A Stereo ee egy Sat, ERE ee 
ese ig tg Fin? by eg Mh EP Tete EE PE on a eee * ates Cah Sarat ie shies Sse 
; Seton: ey oe rn : ” tt eer at Stites ee Sats so aie or Ong ee sg te vette et ete ge are 


Se ee ee ~ BN eee ee ee ee ae ee em Oe Re ee ek ee we eee ee ee ee 
ie, BEE Feats, ory debt, Tu, te rea tee ie PeaPAa cc Seon ease ace 
B-0% 70020279 10,596 at a 2s & : 96 
*. 4___sepiies BIMB/onIsEz0;0(BeD,Noco) | ee 
eg SUBROVEINE RSQ(NTOTY LPRI,LTIMES 
_§-—___¢_____.__ PHYS ROUTINE RBEPLESTA PROCESSING OF A BEOQUTSYTYON FOR TOTY  __. 
a ¢ UNITS OF ITEM B DURING PEETOD I,WHERE TPRIs1 HENOTES \ H 
— S$ __¢.___ ____ PRIORITY BEOUISZI TAN, yeRTa2 BENOTES A LOW PRIORITY REOUTSITZIO. . 
6 c JTIME DEBOTES THS CLOCK TIME EXE REQ WAS RECEIVED 
ar C IP THIS REQUISETION IS To PROVIDE PARTS FOR LRU 
ad a eee ee REPAIR, LPBE BOUTS (1008MIOB * BRIOMYTY COPE), sss 
Cc . 
a 
vw 92 COMMOM/ITINE/ITINE 
43. CON eT, : 
0 COMMOB/LTPROD/LTPROB( 1) 
* ng COMMON /REQHAD/REQHADA 4) 
c . e bo ak 
198 COMMON/NREQAC/HREQAC( 1) 
” 90 COMMON /TREQT/IREOT( 4) 
eS toeeren i hone emt ee 
Sigg CONMON/ISUL/ESEUL(4) 
gg. .tttC MON TST PE cea Seay rates een a as 
‘6 COMMON/ISHIPT/ISHIPE( 1) 
. gs puMo} 
96 COMMON/IPILLZ/IPILLT( 4) 
Ny A, Mleaeereectee’ = tc eet Oe eeece eRe ed ae Ce REDON INE NI AE SD RS ORE aie AT SCC ND ee ae SNE SRDS PERT 
98 c COMPUTE THE PRZOBYTY CODE AWD STOCK USEPING NUMBER 
Gai? “elnino . 
80 ¢ 
‘ : SRrop 3: ols 
we (82 WSKU@(LPRI“ITPRI)/100 
24 B39 KY 0) SKUSE 
* 94 ¢ 
35 CCL : 
Ml 36 c IS THIS & PRIORZT 1 REO 
"ys CALL CUM(IRROI,ZOTY)§) 
_1 §9- PONENT L 
:i 40 20 NBEMAC(NISNDOBMAC( Ni eFQRY 
YG es * es 
5: 42 ¢ IS THERE ANY STORK OF Raty 
Sarr C DU THIS REQUISIPZON ZN BACKORDER STATUS 
AS _________ CALL BMTBRB(B, TOTYsEBRY,LPIMF) 
«. 6 RETURN 
Lge y Rieeeee ane Lanes SEP ITESTSSTOCK REMALHENG TP CHE ORCES WERE FILLED COMPLETELY 
“ a8 GO ITESTPINVACT( NI PLOTE 
“4 §0 IB(ITEST,GE,LSULCH)) 66 70 80 
“"§2 IB(XIPRILWES1) GO £0 66 
a 
Gi Q 
ae a ee = 
ns i aon I a eS ee ERE PO eh A eR eR ER NR A OC atest 
ee ee Saree ange oe ete in ee a eae ear 2 Rr 


ML erate te ey a ee 


3f_0% 90020079 10,526 it gt enue a Ta Lae 


c AM THE REQUISITION 8 OMPLETELY SATISFIED FROM STOCK O 
84 IP(INVaCT(N) ,GE.lQTY) Go To 80 
g5 a SNIP ALL REMAINING ON@HAND STOCK IN PARTIAL FULFILLMENT 
56 ¢c OF THIS REQUISTI2TON 
_§7__. ___ _ZQTYS®INVACT(M) === 
58 c cour een oy QUANTITY To 8E BACKOREERED AND UPDATE PRY@4 Stat 
gg aKaTQ OF : 
60 CALL cor aBKEeY, LE 
64 ss CCL CUE 
62 GO TO 68 
6323. ¢ ARE ON@HAND ASSE2S ABOVE THE SUPPORT LEVEB 
68 60 TEAST ACER sree TULEN} ) Go TO 70 
65  ¢ POF VEI 
66 Ta ToL HLL 
___—© BACKORDER THE RENATNING OuaANTEITY 
68 Pea eat 
£9 _.-..._ 65. __ZP(IBK GT, OICALL BMTBRS(N LBKeLPRIGLTINZ) = 
90 c UPDATE SToGE STATUS RECORDS 
Ret Ly 4D) ' 
72 Cc 
33. ¢  _s_—EP ONSKUD 1000, Sciepute a PaaTS REcCEZPS BveNt 
74 Cc: {BVEVS COBB 47) 
6 wy Ce 
76 JULIAESITINE + 10 
IFCUSKU GT. 1006 PER(aTTP W,TOTYS SKU 

78 ¢ 
79 c RzOUsS ow Xs TO R eNrSn a LOWER LEVEL 
60 ¢ SCHBDULE A RECEIVE EVERTERVERT CODE 2), 
 &, Deere -ceeeet 
82 garners tnt + i Lee 
; N : 
eu 4 CALL ENTER (GTINE, 2ZeNSKU,TOTYS,H) 
a 5 he a ee pat 
86 c UPDATE GROSS PeRrotmabces StTatTzstres 
.:h TY Sea a A Re RP Se OE POET ESS 
88 CALL CUM(ISHEPT, IQTYS.#) 
89 CALL CUMB(IPILLTOTORTS) BW) 
90 RETURW 
Tong meee TCT TTT Ne RO, MACAO i ae art he Nee et ate 
92 BACKORDER SNTIRE AEQUISITION 
[Eade De eee _CALL ENTERB( RN, TOTY so LPRI,L Sa eo li ctr ta ae ole 
94 RETURN 

4 Oo Ff # IRk R SITION 
96 80 IQTYSeIQTY 
97. ¢ UPDATE SMB S70CK STATUS RECORDS 
98 IUVACT(N)SINVACT (HI CQRYS 
Gn 
60 c IF WSKU> 1006, SCHEDULE A PARTS RECEIPT EVENT, = = #  & © 
@1 ¢ (BYENT CODER 417) 


02 Cc 


3. JTINESITINE + 4 
ry" ~ -SECUER HSER SEN ENEE AREA ARER, TW DEES BREOY 


a 


4 Gn OATS 50 06 eo a 


e5_____¢c_____ ______ 
06 ¢ IF REQUISITION 3g TO REPLENTSH pj LOWER LEVEL, 
——_- —-SCHEDULE A BECEYvE eveyrfeveuT CODER 2), = 8 ss 


-JTIMEMITYME & LTPROD(MSKUIeYTAAY = 
40 TPC(NSKU MECN) CAND, (USKU, LT. 10009) 
44 __ 4 ____ -___ 


42 ¢ UPDATE PEBRORRNBCE. 
43... ___. dat yseerOTrs FRO acct aa, Mae eat ae 
iT’ CALL CONC TSNEDT, OTOH) 


a6 ¢ IS THIS A PRIORZTY 41 REQUISITION 


48 ¢ UPDATE PRIGRTTY 4 STATISTICS 


30 CALL CUM(IFILLI,IQTYS,#) 


ee ae eee: See mee ee mene eS ay 5 ee a Ne | | 


—_ene ee rrr 
ET Seas AOR a ad 


we a ne a eee ee oe ee we ees Pee ee 


oes VITESSE S 


wt Fat Oe OG 


Mes 


MI a 5 


NEUSE IES BEN TREN 
CAE Se shits ss eK 


ro 


ve ae eel paelily Stee ofl a ne ate we ne Ie OE 
ee ee a wets eT A re en Ee FE te a ee ee 


99 


Subroutine: RIME, RIMEB 


Function: 


RIME is the main program for the Recoverable Item Management Evaluator 
simulation model. It is dimensioned to simulate up to 40 Stock Keeping Units. 
RIMEB is a "large-scale" version of RIME which permits simulation of up to 340 
Stock Keeping Units. 


Description: 


This routine provides dimension information which establishes arrays sizes 
used in all other RIME routines. RIME is dimensioned to permit simulation of up to 
40 SKUs, while RIMEB permits simulation of up to 340 SKUs. 


RIME processing begins by reading the Exogenous Event File (EEF) identifi- 
cation record from logical file unit 07. This record defines the set of LRU/SRU 
families that were used to generate the EEF, and the number of bases, the number 


of quarters, and the number of replications that were used in the generation of this 
file. 


RIME then reads the set of control cards from logical unit 05 which define 
output options which are to be utilized in the current simulation run and which also 
define the size of the simulation to be performed. See the Input Parameters 
Section, Volume I, for a detailed description of these variabies. 
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The simulation process now begins. Subroutine ZERO is called to set the 
a Statistics arrays to zero, and subroutine INITM1 is called to read in item 

: identification data for the first LRU/SRU group to be simulated. The replication 
loop then begins. Within this loop, subroutine EVNTS is called to simulate events 


for the current LRU/SRU group. When the simulation process is completed, and if 


. the control flag ITWRT = 1, subroutine ITRSLT is called to punch cards containing 
10 major statistics summarizing the simulation results for this replication of the 
current LRU/SRU group. The replication process then continues until all required 

= replications for the current LRU/SRU group is completed. The next LRU/SRU 

“ group is then processed and this procedure continues until all required groups have 

we been simulated. 

eo 

2 Finally, the summary reports are produced. If ISUMRY = 1, subroutine 

Ee OUTREP is called to produce a short-form summary of backorders, buy-dollars, 

and other inventory system results associated with set of control levels being 

“i evaluated. If IOUT is not equal to zero, subroutine OUT2 is called to produce a 


detailed statistical summary on a quarter by quarter basis. 


The above simuiation and reporting process then continues until all NLAM 


simulation runs have been completed. 
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Subroutine: REVIEW 


Functions 


This routine compares the inventory position = (on-hand + on-order + 
work-in-process - backorders) to the desired stock level (IROL(N)). If the 
inventory position is below this level,an order for the deficiency is placed. 


Calling Parameters: 


NN Item review variable. If NN = 0, all items are reviewed. 
Otherwise, only item NN is reviewed. 


Initial provisioning flag. If IFLAG = 1, this routine schedules all 
required orders for immediate receipt to simulate initial provisioning 
stock positioning. Otherwise, replenishment orders are scheduled for 
receipt after the standard administrative and production leadtimes. 


Description: 


The routine first computes the inventory position equal to (stock on-hand + 
due-in + in-process less backorders) for Stock Keeping Unit N. If the inventory 
position is less than the reorder level (IROL(N)) for SKU N, a replenishment order 
is initiated. If IFLAG equals 1, routine ORDERV 3s called. This routine schedules 
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delivery of the required units to occur at time ITIME + 1 to simulate initial 
provisioning and positioning activities. Otherwise, subroutine ORDER is called to 
schedule the replenishment order. In this latter case, delivery time is computed by 
subroutine ORDER to occur after the standard administrative and production 
leadtimes. 
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Subroutine: SSTAT 
Function: 


Event Type 11. This routine updates time-persistent and end-of-period | 
statistics. | 


Calling Parameters: 


IP3 = The week number associated with the previous call to subroutine 
SSTAT 


Description: 


This routine is called at the end of each simulation week. Subroutine SSTAT 
first updates the performance statistics INVDAY, IBAKDT, and IBAKDI. These 


variables record inventory - week and backorder week measures. 


At the end of each quarter, the routine computes values for the end-of-period 
variables INVOH, INVOR, IBACKT, and IBACKI. These variables record the 
end-of-period status for on hand stocks, on order stocks, total backorders, and 
priority 1 backorders, respectively. The period counter KEND (which denotes the 
week number within the quarter) and ITINV (the current quarter number) are also 


ee 


incremented by | at the end of each quarter. Finally, the routine ends by calling 
subroutine ENTER to schedule a new type {! event. 
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Subroutine: STATHD 


Function: 


This routine is a utility routine called by subroutine OUT2. The routine zeros 


the totals vector ITOTL, and writes a heading for the summary statistics report. 


Calling Parameters: 


a 
tl 


Index identifying the statistics header information to be printed 


ITOTL = _ The statistics vector to be set to zero 


it 01 10°20°79 100874 


@ U . 61) i 8 ‘he e 7 
4 PRINT grereerrc NEASUSE FOR PARTICULAR REPORT(J—1,9,08 30 
3 anste See) 
€ eae ee EAT 
c UeRo TOTALS ARRAY = +=——— 
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Do 5 r=q, 25 
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1° ¢€ ete tS 
47 @©0 T00490n20090000 ©} © OCC 
10 WRITE(6, 104) 
GO TO 6 
20 WRITB(6,106) 
GO TA 690 
30 WRITE(6,107 
104 FORMATE//,T> 6. AcTrION 
127 FORMATA//,7560"SSS DOLLARS $93") 
196 FORMATE /, 7560 "cc5 iF} 
4° CONTINU 
RETURN 
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Subroutine: WRIFEL 


Function: 


This routine writes to File 06 all of the current elements in the future events 


list. 


Description: 


This routine provides a detailed listing of all information currently recorded in 


the Future Events List. See Volume I, Section II for a detailed description of this 


routine. 
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2.01 10p20079 10,637 8 
4 SUBROVEINE WRIFEL 
3 COMMON/NFIRST/HFIR 
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5... COMMON /IPSH/IFSY Eee Ne 
6 COMMON/JOTY/IQOTY(4) 
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ee eee OMMON met 
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12 23 YORMaT(//30X,"PUTURE EVENTS LST AT TIME *,1210/ 
13 PY YOXe"NPIRSTR" 110," FENTRYS",210/ 
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15h JPOINT INPEx"//) Seg ree 
16 
+ area tees =0 bp8r sO: eS A ness ce, Pee Oe oe etek at 2 C8 eee 
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: 0 CONTINU 
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a oe _.._ SPRIOR (KK) pIPOEMT(KKIARK ae a Biers wee are op 2 
4 43 FORMAT(710,8210) 
15 . KKaJ POINT (KK 
6 GO TO 10 
7. _.900 CONTINUE eet hie oie Dont fod tae tenes ee eee re 
8 WRITE(6,903) | 
9 903 FORMAT(//730,"NO MORE BMTRIES ON THE FUTURE EVEWTS LISTw) 
10 RETURN 
Wt Sets oy De om oe Pees 2 ree 
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Subroutine: ZERO 
Function: 
This routine zeros the RIME statistical accumulators. 


Description: 


This routine is called at the beginning of each RIME run to zero the variables 


for recording performance statistics, beginning on hand and on order stocks. 
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aa as 125 
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: oe supnoverés Sgn0 
x " COMMOS 2eanytecrenere _ es _ 
. COMMON sTB0R/250 C) 
F 6 CONNOR OTR /TBAL 7u(43) 
: 7 COMMON /TOPROS ) 
) COMMON sTgAck ft ACKEL 16,3763 Be oe a ce es 
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é 7 Saba COMNNON/THOPCR/TINCPSHIT) .LUOVENTS) ae 
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